home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 1) (1997).iso / intros / 64k / revolt / sources / 3engine.ext < prev    next >
Text File  |  1996-01-24  |  3KB  |  127 lines
  1.  
  2. ; bitsort variables...
  3.         EXTRN    widoczno₧ì    :BYTE
  4.         EXTRN    drawFacesVE    :NEAR
  5.         EXTRN    drawFacesVCE    :NEAR
  6.         PUBLIC    lightE
  7.         PUBLIC    sumy_z        
  8.         PUBLIC    sort_adr    
  9.         PUBLIC    sort_prz    
  10.         EXTRN    make_lightE    :NEAR
  11.         PUBLIC    kolejno₧ì    
  12.         PUBLIC    bene
  13.         EXTRN    _mem        :NEAR
  14.         EXTRN    _sort        :NEAR
  15. ; vector variables...
  16.         EXTRN    generate32env    :NEAR
  17.         EXTRN    gouraud        :NEAR
  18.         EXTRN    text        :NEAR
  19.         IRPC roxi,<123>
  20.         PUBLIC    gou_x&roxi
  21.         PUBLIC    gou_y&roxi
  22.         PUBLIC  delta&roxi
  23.         PUBLIC  dC&roxi
  24.         PUBLIC    gou_c&roxi    
  25.                 ENDM     
  26.         EXTRN    first_vertex    :word
  27.         EXTRN    second_vertex    :word
  28.         EXTRN    third_vertex    :word
  29.         IRPC roxi,<123>
  30.         EXTRN    x&roxi    :word 
  31.         EXTRN    y&roxi    :word 
  32.         EXTRN    xt&roxi    :word 
  33.         EXTRN    yt&roxi    :word 
  34.         ENDM
  35.         
  36.         EXTRN    copyPoints    :NEAR
  37.         EXTRN    rotatety    :NEAR
  38.         EXTRN    rotatety2    :NEAR
  39.         PUBLIC    inc_xxx
  40.         PUBLIC    inc_yyy
  41.         PUBLIC    inc_zzz
  42.         PUBLIC    draw_where
  43.         PUBLIC    number_f
  44.         PUBLIC    number_p
  45.         PUBLIC    adr_pixels
  46.         PUBLIC    adr_versor
  47.         PUBLIC    adr_colors
  48.         PUBLIC    adr_faces    
  49.         PUBLIC    adr_points    
  50.         PUBLIC    poin2d
  51.         PUBLIC    points
  52.         PUBLIC    versory
  53.         EXTRN    _sqrt        :NEAR
  54.         EXTRN    drawFacesV    :NEAR
  55.         EXTRN    drawFacesVC    :NEAR
  56.         PUBLIC    screen
  57.         PUBLIC    tÆo
  58.         EXTRN    d_x        :WORD
  59.         EXTRN    d_y        :WORD
  60.         EXTRN    zdelta        :DWORD
  61. ; u₧rednione wersory normalne...
  62.         EXTRN    calc_nor    :NEAR
  63.         EXTRN    make_light    :NEAR
  64.         PUBLIC    nor_to_faces
  65.         PUBLIC    wersory
  66.         PUBLIC    ilo₧ì_wer
  67. ; ºarówka :) making light
  68.         PUBLIC    light
  69.         PUBLIC    pal_pom2
  70.  
  71. ; first must be:
  72.         draw_where    dd offset screen
  73.         adr_versor    dd offset versory
  74.         adr_points    dd offset points
  75.         adr_colors    dd offset colors
  76.  
  77.         include    gfx.ext
  78.  
  79. ; bitsort variables...
  80.         max_n_of_faces    EQU 3500    ;tutaj ilo₧ì max_faces
  81.         max_n_of_point    EQU 3500
  82.         sumy_z          dd max_n_of_faces DUP (?)    
  83.         sort_adr     dd 16 DUP (?)
  84.         sort_prz     dd 16 DUP (?)
  85.         kolejno₧ì     dw max_n_of_faces DUP (?)
  86. ; vector variables...
  87.         number_f    dd ?        
  88.         number_p    dd ?        
  89.         adr_pixels    dd ?
  90.         adr_faces    dd ?
  91.         poin2d        dw max_n_of_point DUP (?,?)
  92.         points        dw max_n_of_point DUP (?,?,?)
  93.         versory        dw max_n_of_point DUP (?,?,?)
  94.         inc_xxx        dd ?    ;dod.do kåtu obrotu
  95.         inc_yyy        dd ?
  96.         inc_zzz        dd ?
  97.         IRPC roxi,<123>
  98.         gou_x&roxi     dd ?
  99.         gou_y&roxi     dd ?
  100.                 ENDM
  101.         IRPC roxi,<123>
  102.         gou_c&roxi    db ?
  103.                 ENDM
  104.         IRPC roxi,<123>
  105.         delta&roxi    dd ?
  106.                 ENDM
  107.         IRPC roxi,<123>
  108.         dC&roxi        dd ?
  109.                 ENDM
  110.  
  111.  
  112. ; calculate normals variables...
  113.         nor_to_faces    dw max_n_of_faces DUP (?,?,?)
  114.         wersory        dw max_n_of_point DUP (?,?,?)
  115.         ilo₧ì_wer    dd max_n_of_point DUP (?,?,?)
  116.         colors        db max_n_of_faces DUP (?)
  117. ; light    variables...
  118.         light        db max_n_of_point DUP (?)
  119.         lightE        dw max_n_of_point DUP (?,?)
  120.  
  121.                 db 128 DUP (?)
  122.         bene        db 128*129 DUP (?) ;enviroment'y
  123. ; screen variables...
  124.         pal_pom2    db 768     DUP (?)
  125.         screen        db 64000 DUP (?)
  126.         tÆo        db 64000 DUP (?)
  127.